extract_upper_triangular Interface

public interface extract_upper_triangular

An interface to the upper triangular matrix extraction routines.


Module Procedures

private pure function extract_upper_triangular_dbl(x) result(rst)

Extracts the upper triangular portion of a matrix.

Arguments

Type IntentOptional Attributes Name
real(kind=real64), intent(in), dimension(:,:) :: x

The M-by-N matrix.

Return Value real(kind=real64), allocatable, dimension(:,:)

The K-by-N upper triangular matrix where K = MIN(M, N).

private pure function extract_upper_triangular_cmplx(x) result(rst)

Extracts the upper triangular portion of a matrix.

Arguments

Type IntentOptional Attributes Name
complex(kind=real64), intent(in), dimension(:,:) :: x

The M-by-N matrix.

Return Value complex(kind=real64), allocatable, dimension(:,:)

The K-by-N upper triangular matrix where K = MIN(M, N).